home *** CD-ROM | disk | FTP | other *** search
/ Dimension 64 1 / Dimension_64_Nr.01_19xx_-_de_Side_A.d64 / file schliessen (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  895b  |  52 lines
  1. 1000 mm=0
  2. 1010 mm = mm+1:dd$="":gosub 1120
  3. 1020 ifdd$=nn$then end
  4. 1030 print mid$(dd$,4,16):inputaa$
  5. 1040 if aa$="e"then end
  6. 1060 hh$=left$(dd$,1)
  7. 1070 hh$=chr$(asc(hh$)or2^7)
  8. 1080 dd$=hh$+right$(dd$,29)
  9. 1090 gosub 1330
  10. 1100 goto 1010
  11. 1110 end
  12. 1120 :
  13. 1130 :
  14. 1140 :
  15. 1150 open15,8,15:open8,8,8,"#"
  16. 1160 nn$="":fori=1to39:nn$=nn$+chr$(0):nexti
  17. 1170 xx=int((mm-1)/8)
  18. 1180 print#15,"u1 8 0 18 0"
  19. 1190 forzz=1toxx+1
  20. 1200 print#15,"b-p 8 0"
  21. 1210 get#8,tt$:tt=asc(tt$+chr$(0))
  22. 1220 get#8,ss$:ss=asc(ss$+chr$(0))
  23. 1230 if tt=0thendd$=nn$:goto1310
  24. 1240 print#15,"u1 8 0";tt;ss
  25. 1250 nextzz
  26. 1260 pp=mm-(xx*8):pp=(pp-1)*32+2
  27. 1270 print#15,"b-p 8";pp
  28. 1280 forzz=1to30:get#8,zz$
  29. 1290 ifzz$=""  then zz$=chr$(0)
  30. 1300 dd$=dd$+zz$:nextzz
  31. 1310 close8:close15
  32. 1320 return
  33. 1330 :
  34. 1340 :
  35. 1350 :
  36. 1360 open15,8,15:open8,8,8,"#"
  37. 1370 xx=int((mm-1)/8)
  38. 1380 print#15,"u1 8 0 18 0"
  39. 1390 forzz=1toxx+1
  40. 1400 print#15,"b-p 8 0"
  41. 1410 get#8,t$:tt=asc(t$+chr$(0))
  42. 1420 get#8,s$:ss=asc(s$+chr$(0))
  43. 1430 iftt=0then 1500
  44. 1440 print#15,"u1 8 0";tt;ss
  45. 1450 nextzz
  46. 1460 pp=mm-(xx*8):pp=(pp-1)*32+2
  47. 1470 print#15,"b-p 8";pp
  48. 1480 print#8,dd$
  49. 1490 print#15,"u2 8 0";tt;ss
  50. 1500 close8:close15
  51. 1510 return
  52.